Nothing
basicAnova <-
function(Data,Treatment,Response,WeightList){
#' @export
#basic ANOVA test with clean table output
Data[ ,Treatment]<-as.factor(Data[ ,Treatment])
#Anova
AnovaTable<-aov(Data[ ,Response]~as.factor(Data[ ,Treatment]), weight=WeightList)
#Summary Table
AnovaTable<-Anova(AnovaTable)
AnovaTable<-as.data.frame(AnovaTable)
AnovaTable$Signif<-NA
AnovaTable$Signif[1]<-'.'
if(AnovaTable[1,4]<0.05){AnovaTable$Signif[1]<-'*'}
if(AnovaTable[1,4]<0.01){AnovaTable$Signif[1]<-'**'}
if(AnovaTable[1,4]<0.001){AnovaTable$Signif[1]<-'***'}
rownames(AnovaTable)[1]<-Treatment;
return(AnovaTable)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.