Publications by Ian Duhaylungsod
Regression Analysis
New names: • `Relax3` -> `Relax3...40` • `Relax3` -> `Relax3...41` • `Education` -> `Education...50` • `` -> `...51` • `Income` -> `Income...52` • `` -> `...71` • `Education` -> `Education...72` • `` -> `...73` • `` -> `...74` • `` -> `...75` • `Income` -> `Income...76` • `` -> `...77` • `` -> `...79` • `...
1839 sym Python (3695 sym/8 pcs) 2 img
Randomized Complete Block Design
library(readxl) Yield <- read_excel("D:/COLLEGE 4TH YEAR/1st SEMESTER/STAT 55 EXPERIMENTAL DESIGN/MIDTERM/Yield.xlsx", col_types = c("text", "text", "numeric")) Yield Fitting of linear model Ho:African tall=Co-11=FS-1=K-7=Co-24, Ha: Atleast one variety is different model <- lm(Yield$Yield~ Yield$Replication+Yield$Variety) Obtain ANOVA ...
279 sym R (3922 sym/25 pcs) 1 img
Completely Randomized Design
library(readxl) CRDEqual <- read_excel("D:/COLLEGE 4TH YEAR/1st SEMESTER/STAT 55 EXPERIMENTAL DESIGN/MIDTERM/CRDEqual.xlsx", col_types = c("text", "numeric")) CRDEqual Fittinf of linear model model <- lm(CRDEqual$Yield ~ CRDEqual$Treatment) Obtains R square and other statistics of fitted model summary <- summary(model) Carryout ANOVA a...
259 sym R (2370 sym/20 pcs) 1 img
Analysis using Multiple Regression
Independent variables: SSOverall, STOverall, and SCOverall Dependent variable: GWA(1st sem SY: 2021-2022) library(readxl) withage <- read_excel("withage.xlsx") withage Q1. How many of the observations whose age is at least 21 years old? library(dplyr) Attaching package: 'dplyr' The following objects are masked from 'package:stats': f...
838 sym R (1958 sym/13 pcs) 1 img
Latin Square Design
Importing Data library(readxl) data <- read_excel("D:/COLLEGE 4TH YEAR/1st SEMESTER/STAT 55 EXPERIMENTAL DESIGN/MIDTERM/data.xlsx") data Viewing Data head(data) Verify the Variables Structure str(data) 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 ....
190 sym R (2977 sym/13 pcs)
FINAL EXAM - LSD FOR 5 INGREDIENTS
Importing Data library(readxl) ING <- read_excel("D:/COLLEGE 4TH YEAR/1st SEMESTER/STAT 55 EXPERIMENTAL DESIGN/FINAL/FINAL EXAM - DATA FOR FIVE DIFFERENT INGREDIENTS (DUHAYLUNGSOD_BS MATH-STAT 4).xlsx") ING Viewing Data head(ING) Verify the Variables Structure str(ING) tibble [25 × 4] (S3: tbl_df/tbl/data.frame) $ Batch : num [1:25] 1...
190 sym R (3112 sym/13 pcs)
FINAL EXAM - STAT 53 REGRESSION ANALYSIS
library(readxl) Dataexam <- read_excel("D:/COLLEGE 4TH YEAR/1st SEMESTER/STAT 53 REGRESSION ANALYSIS/FINAL/Dataexam.xlsx") New names: • `` -> `...1` • `` -> `...22` • `` -> `...23` • `DDP` -> `DDP...75` • `DDP` -> `DDP...82` Dataexam 1. Determine the group of respondents in terms of: a. Gadget used library(dplyr) Attaching pack...
3933 sym R (5851 sym/54 pcs) 8 img
Data Visualization with ggplot2
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: package 'g...
908 sym R (10490 sym/70 pcs) 28 img
Rmd-Surveys
Data library(readxl) Surveys <- read_excel("D:/COLLEGE 3RD YEAR/2nd SEMESTER/STAT 50 STATISTICAL SOFTWARE/MIDTERM/Surveys.xlsx") 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> <chr> <chr> <dbl> <dbl> ## 1 1 ...
21 sym R (1530 sym/8 pcs) 1 img
Graphical Presentations
Data library(readxl) Surveys <- read_excel("D:/COLLEGE 3RD YEAR/2nd SEMESTER/STAT 50 STATISTICAL SOFTWARE/MIDTERM/Surveys.xlsx") 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> <chr> <chr> <dbl> <dbl> ## 1 1 ...
21 sym R (1530 sym/8 pcs) 1 img