d<-sincdata(100, noise=0.1)
d <- sincdata(100, noise = 0.1)
install.packages("rdetools")
d <- sincdata(100, noise = 0.1)
d <- sincdata(100, noise = 0.1)
import rdetools
install.packages(c("boot", "class", "cluster", "codetools", "foreign", "KernSmooth", "knitr", "lattice", "manipulate", "MASS", "Matrix", "mgcv", "nlme", "nnet", "rmarkdown", "rpart", "spatial", "survival"))
library()
library(rdetools)
d <- sincdata(100, noise = 0.1)
X
d
K <- rbfkernel(d$X)
K
View(K)
d$X
K1 <- rbfkernel(d$Y)
d$Y
K1 <- rbfkernel(d$y)
View(`K1`)
d$y
image(1:100,1:100,K,axes=FALSE,xlab="",ylab="")
setwd("~/Documents/Processing/projects/MAT259/MAT259_PROJ5_BYAN/data")
HDITrend <- read.csv("~/Documents/Processing/projects/MAT259/MAT259_PROJ5_BYAN/data/HDITrend.csv")
View(HDITrend)
simil
help simil
simil()
help simil()
dist
install.packages("proxy")
simil
simil()
proxy
library(proxy)
simil
d<-dist(HDITrend)
d
dist(HDITrend)
as.matrix(dist(HDITrend))
