Publications by Winelyn Pelias
Randomized Block Design analysis in R along with LSD and DNMRT/Dunccan test
library(rmarkdown) library(readxl) RBD <- read_excel("D:/Stat 53/RBD.xlsx") paged_table(RBD) Ho: African tall=Co-11=FS-1=K-7=Co-24, Ha: Atleast one variety is different Fitting of linear model model <- lm(RBD$Yield~ RBD$Replication+RBD$Variety) Obtain ANOVA anova <-anova(model) anova Analysis of Variance Table Response: RBD$Yield ...
911 sym R (3785 sym/27 pcs) 1 img
Completely Randomized Design Analysis in R along with LSD test
library(rmarkdown) library(readxl) RBD <- read_excel("D:/Stat 53/RBD.xlsx") paged_table(RBD) Ho: African tall=Co-11=FS-1=K-7=Co-24, Ha: Atleast one variety is different Fitting of linear model model <- lm(RBD$Yield~ RBD$Replication+RBD$Variety) model Call: lm(formula = RBD$Yield ~ RBD$Replication + RBD$Variety) Coefficients: (Inte...
912 sym R (4097 sym/28 pcs) 1 img
Randomized Complete Block Design
library(rmarkdown) library(readxl) Yield <- read_excel("D:/Stat 55/Yield.xlsx") paged_table(Yield) Ho: African tall=Co-11=FS-1=K-7=Co-24, Ha: Atleast one variety is different Fitting of linear model model <- lm(Yield$Yield~ Yield$Replication+Yield$Variety) model Call: lm(formula = Yield$Yield ~ Yield$Replication + Yield$Variety) Coeffic...
912 sym R (4247 sym/28 pcs) 1 img
Latin Square Design
Importing data library(rmarkdown) library(readxl) data1 <- read_excel("D:/Stat 55/data1.xlsx") paged_table(data1) win1 <- head(data1) paged_table(win1) str(data1) tibble [16 × 4] (S3: tbl_df/tbl/data.frame) $ Row : num [1:16] 1 1 1 1 2 2 2 2 3 3 ... $ Column : num [1:16] 1 2 3 4 1 2 3 4 1 2 ... $ Varieties: chr [1:16] "B" "D" "...
167 sym R (3024 sym/16 pcs)
FINAL EXAM (Regression Analysis)
library(rmarkdown) library(dplyr) Warning: package 'dplyr' was built under R version 4.2.1 Attaching package: 'dplyr' The following objects are masked from 'package:stats': filter, lag The following objects are masked from 'package:base': intersect, setdiff, setequal, union library(readxl) Dataexam <- read_excel("D:/Winelyn/Dataexa...
856 sym R (8620 sym/69 pcs) 7 img
Pelias-Activity4
Data library(readxl) ## Warning: package 'readxl' was built under R version 4.1.3 Surveys <- read_excel("D:/Winelyn/CLASSES/Stat 50 - Statistical Software/Surveys.xlsx") View(Surveys) Surveys ## # A tibble: 34,786 x 13 ## record_id month day year plot_id species_id sex hindfoot_length weight ## <dbl> <dbl> <dbl> <dbl> <dbl> <c...
23 sym R (1583 sym/10 pcs) 1 img
Activity 4 - PELIAS
Data library(tidyverse) ## Warning: package 'tidyverse' was built under R version 4.1.3 ## -- Attaching packages --------------------------------------- tidyverse 1.3.1 -- ## v ggplot2 3.3.5 v purrr 0.3.4 ## v tibble 3.1.6 v dplyr 1.0.8 ## v tidyr 1.2.0 v stringr 1.4.0 ## v readr 2.1.2 v forcats 0.5.1 ## Warning: packa...
310 sym R (10023 sym/71 pcs) 27 img
Data Analysis
#Data library(readxl) ## Warning: package 'readxl' was built under R version 4.1.3 DataSittie <- read_excel("D:/Winelyn/Documents/Stat 50 - Statistical Software/DataSittie.xlsx") ## New names: ## * `` -> `...63` ## * `` -> `...64` View(DataSittie) library(DescTools) ## Warning: package 'DescTools' was built under R version 4.1.3 4. Is there an...
470 sym R (27684 sym/101 pcs)
Second Data Output - Pelias, Winelyn
Data library(readxl) ## Warning: package 'readxl' was built under R version 4.1.3 data2 <- read_excel("D:/Winelyn/Documents/Stat 50 - Statistical Software/data2.xlsx") ## New names: ## * `` -> `...3` ## * `` -> `...4` ## * `` -> `...5` ## * `` -> `...6` ## * `` -> `...7` ## * `` -> `...8` ## * `` -> `...9` ## * `` -> `...10` ## * `` -> `...
475 sym R (8450 sym/62 pcs) 4 img
Sample Rmarkdown Template
Heading 1 Some Text Sub-heading 2 2 + 1 A B C yes maybe no Heading 2 plot(rnorm(100)) Sub-heading 3 ...
97 sym R (21 sym/2 pcs) 1 img