search for: myda

...ve me any helps or advice? Thank you in advance. The data and code I used listed below: # dummy data factor<-rep(c("Alice","Jone","Mike"),each=100) factor<-factor(factor) traits<-c(rnorm(100, mean=1, sd=1), rnorm(100, mean=3, sd=3), rnorm(100, mean=6, sd=6)) myda<-data.frame(factor,traits) # my plot plot(c(min(myda$traits),max(myda$traits)),c(-0.03,0.5), xlab='State', ylab='ylab') lines(density(myda$traits[factor==c("Alice")]), lwd=2,col=2) lines(density(myda$traits[factor==c("Jone")]), lwd=2,col=3) lines(density(myda...

...left of the plot respectively. Could you please share your experience or advice with me? # dummy data factor<-rep(c("Alice","Jone","Mike"),each=100) factor<-factor(factor) traits<-c(rnorm(100, mean=1, sd=1), rnorm(100, mean=3, sd=3), rnorm(100, mean=6, sd=6)) myda<-data.frame(factor,traits) # my plot plot(c(min(myda$traits),max(myda$traits)),c(-0.03,0.5), xlab='State', ylab='ylab') lines(density(myda$traits[factor==c("Alice")]), lwd=2,col=2) lines(density(myda$traits[factor==c("Jone")]), lwd=2,col=3) lines(density(myda...

...code works if it's standalone, but doesn't work if it's divided into two functions. The code that works is: ################### WORKS ############### library(pamr) set.seed(120) x <- matrix(rnorm(1000*20),ncol=20) y <- sample(c(1:4),size=20,replace=TRUE) mydata <- list(x=x,y=y) mytrain <- pamr.train(mydata) new.scales <- pamr.adaptthresh(mytrain,ntries = 1) ######################################## But if I split the lines into two functions, then I get an error message that reads : 'Error in pamr.train(data = myd2, threshold...

...ve all accounts execpt admin & newly created user & assign full permissions to that share to newly created user(duser) 2) proc used to access shares via cifs wget http://pserver.samba.org/samba/ftp/cifs-cvs/mount.cifs mv mount.cifs /sbin/mount.cifs chmod +x /sbin/mount.cifs mount.cifs //MYDAS/Myshare1 /var/www/html/Myshare1 -o username=duser,password=mydpass,rw mount.cifs //MYDAS/Myshare2 /var/www/html/Myshare2 -o username=duser,password=mydpass,rw mount.cifs //MYDAS/Myshare3 /var/www/html/Myshare3 -o username=duser,password=mydpass,rw Note: MYDAS is pointed to the correct IP in /etc...

...100, mean=6, sd=6)) traits19<-c(rnorm(100, mean=1, sd=1), rnorm(100, mean=3, sd=3), rnorm(100, mean=6, sd=6)) traits20<-c(rnorm(100, mean=1, sd=1), rnorm(100, mean=3, sd=3), rnorm(100, mean=6, sd=6)) traits21<-c(rnorm(100, mean=1, sd=1), rnorm(100, mean=3, sd=3), rnorm(100, mean=6, sd=6)) myda<-data.frame(factor,traits1,traits2,traits3,traits4,traits5,traits6,traits7,traits8,traits9,traits10,traits11,traits12,traits13,traits14,traits15,traits16,traits17,traits18, traits19,traits20,traits21) library(ggplot2) d = melt(myda, id = "factor") str(d) pdf("test33.pdf")...

...100, mean=6, sd=6)) traits19<-c(rnorm(100, mean=1, sd=1), rnorm(100, mean=3, sd=3), rnorm(100, mean=6, sd=6)) traits20<-c(rnorm(100, mean=1, sd=1), rnorm(100, mean=3, sd=3), rnorm(100, mean=6, sd=6)) traits21<-c(rnorm(100, mean=1, sd=1), rnorm(100, mean=3, sd=3), rnorm(100, mean=6, sd=6)) myda<-data.frame(factor,traits1,traits2,traits3,traits4,traits5,traits6,traits7,traits8,traits9,traits10,traits11,traits12,traits13,traits14,traits15,traits16,traits17,traits18, traits19,traits20,traits21) library(ggplot2) d = melt(myda, id = "factor") str(d) pdf("test33.pdf")...

Hi I?m trying to fit a nonlinear model to a derivative of the logistic function y = a/(1+exp((b-x)/c)) (this is the parametrization for the SSlogis function with nls) The derivative calculated with D function is: > logis<- expression(a/(1+exp((b-x)/c))) > D(logis, "x") a * (exp((b - x)/c) * (1/c))/(1 + exp((b - x)/c))^2 So I enter this expression in the nls function: