摘要:
#中文 UTF-8编码 3.4.0library(Hmisc)mydata = read.table('clipboard',header = T)head(mydata)mycol=c(rgb(1,0,0,0.3),'cadetblue','darkseagreen', 'aquamarine3' 阅读全文
摘要:
n = 100g = 6 set.seed(g)d <- data.frame(x = unlist(lapply(1:g, function(i) rnorm(n/g, runif(1)*i^2))), y = unlist(lapply(1:g, function(i) rnorm(n/g, r 阅读全文
摘要:
distancePointLine <- function(x, y, slope, intercept) { ## x, y is the point to test. ## slope, intercept is the line to check distance. ## ## Returns 阅读全文