Publications by Kyle Kenneth B. Ruaya
RUAYA_Experimental Design Midterm Examination
Question 1 A COVID frontliner wants to estimate the average amount that a resident in Maramag would donate to COVID affected families in Maramag. Twenty residents were randomly selected from the Municipality of Maramag. The 20 randomly residents were contacted by telephone and asked how much they would be willing to donate. Their responses ar...
4559 sym R (7487 sym/66 pcs) 3 img
Sample Analysis Using MR - RUAYA
knitr::opts_chunk$set(echo = TRUE, comment="") library(readxl) Durias<- read_excel("Data.xlsx") New names: • `Relax3` -> `Relax3...40` • `Relax3` -> `Relax3...41` • `Education` -> `Education...50` • `` -> `...51` • `Income` -> `Income...52` • `` -> `...71` • `Education` -> `Education...72` • `` -> `...73` • `` -> `...7...
1869 sym R (6927 sym/38 pcs) 2 img
RUAYA_Analysis using Multiple Regression
Problem Independent variables: SSOverall, STOverall , and SCOverall Dependent variable: GWA (1st sem SY: 2021-2022) Q1. How many of the observations whose age is at least 21 years old? Q2. How many of the observations whose grades are above 1.25 to 1.75? Q3. Provide the results in checking the assumptions in running multiple regression anal...
2009 sym R (5608 sym/22 pcs) 1 img
RUAYA-RCBD
Problem statement An experiment was conducted in RCBD to study the comparative performance of fodder sorghum lines under rain fed conditions. Data is furnished below. Are all lines same? If not carry out LSD test and Duncan test to compare the lines. library(readxl) RBD <- read_excel("D:/Regression Analysis/Yield.xlsx", col_types = c(...
784 sym R (5378 sym/27 pcs) 1 img
Document
library(readxl) CRDEqual <- read_excel("D:/Regression Analysis/CRDEqual.xlsx", col_types = c("text", "numeric")) CRDEqual ## # A tibble: 20 × 2 ## Treatment Yield ## <chr> <dbl> ## 1 1.0 25 ## 2 1.0 21 ## 3 1.0 21 ## 4 1.0 18 ## 5 2.0 25 ## 6 2.0 28 ## 7 2.0 ...
391 sym R (4231 sym/23 pcs) 1 img
RUAYA - LSD R Script
library(readxl) data = read_excel(path = "C:/Users/63966/Downloads/data (1).xlsx", col_names = TRUE) head(data) ## # A tibble: 6 × 4 ## Row Column Varieties Yield ## <dbl> <dbl> <chr> <dbl> ## 1 1 1 B 1.64 ## 2 1 2 D 1.21 ## 3 1 3 C 1.42 ## 4 1 4 ...
144 sym R (3478 sym/14 pcs)
Second Data Output
Data library(readxl) ## Warning: package 'readxl' was built under R version 4.1.3 data2 <- read_excel("D:/data2.xlsx") ## New names: ## * `` -> `...3` ## * `` -> `...4` ## * `` -> `...5` ## * `` -> `...6` ## * `` -> `...7` ## * `` -> `...8` ## * `` -> `...9` ## * `` -> `...10` ## * `` -> `...11` ## * `` -> `...12` ## * `` -> `...13` #...
476 sym R (8272 sym/62 pcs) 4 img