#-----------------------------------------------------------------------------------------------------------------------
#-----------------------------------------------------------------------------------------------------------------------
# Demo-kod: Lecture 1
#-----------------------------------------------------------------------------------------------------------------------
#-----------------------------------------------------------------------------------------------------------------------



# hur använder jag RStudio?

# i RStudio kör en rad (eller markerad kod) genom att trycka ctrl+enter
# för mer genvägar tryck: alt+shift+k

# mer hjälp: https://raw.githubusercontent.com/rstudio/cheatsheets/main/rstudio-ide.pdf

# Koden skrivs i console eller i ett script (här tex)

# hitta flikarna Enviroment, History, Files och Help


#-----------------------------------------------------------------------------------------------------------------------
# variables 
#-----------------------------------------------------------------------------------------------------------------------



my_variable <- "Calle"
myVariable <- "Calle2"
my variable <- "Calle"



my_vector <- c("Calle", "Blomqvist")
my_vector
my_vector[1]
num_vec <- c(1, 1, 2, 2)
my_vector[num_vec]

length(my_variable)
length(num_vec)


my_vector[length(my_vector)] # sista elementet
my_vector[2]

my_num <- 1:10
my_num
print(my_num)
length(my_num)

## Variabeltyper
typeof(my_vector)
typeof(my_num)

# heltal skapar med ett "L" på slutet

3L
x<-5L
y<-5
typeof(x)
typeof(y)

print("hej!")

#-----------------------------------------------------------------------------------------------------------------------
# functions 
#-----------------------------------------------------------------------------------------------------------------------

# Funktionens innehåll: 
# Skriv en funktion, f, som tar ett värde med argumentet z, och kvadrerar det:

f <- function(z){

  return(z_squared)
}

# - Börja med kod som fungerar (men med funktionens argument)
z <- 3
z_squared <- z^2

# - Lyft in koden i funktionen
f <- function(z){
  z_squared <- z^2
  return(z_squared)
}


# - Pröva att funktionen fungerar som den ska
f(3)
f(12)
f(z = 5)

my_val <- f(z = 4)

my_val
my_val/2

my_val <- f(z = 40)
my_val/2

f(z = my_val)

# kolla vad som finns inuti:
f


# rensa
rm(list=ls())

ls()
a<-10


# Lokal miljö
f <- function(x, y){
  res <- x+y
  z<-"hej"
  print(z)
  return(res)
}

x <- 5
y <- 5

m<-f(x = 2, y = 2)
m
z
res

#-----------------------------------------------------------------------------------------------------------------------
# markmyassignment 
#-----------------------------------------------------------------------------------------------------------------------

## Installation
install.packages("markmyassignment")

## Använd paketet
library(markmyassignment)
#detach("package:markmyassignment", unload = TRUE)

## Ställ in uppgift
assignment_path <- file.path(system.file(package = "markmyassignment"), "extdata", "example_assignment01.yml")

set_assignment(assignment_path)
  
show_assignment()
## Uppgift:
# Mandatory: Assign you name to my_name 
my_name <- "Johan Alenlöv"

## task1: Create a vector with the values pi and e
pi
exp(1)

task1 <- c(pi, exp(1)) # Correct

mark_my_assignment("task1")

task1 <- c(3.1, exp(1)) # Wrong

mark_my_assignment("task1")


## task2: Create a function that returns the sum of the first and last element
x<-c(2,4,1)
length(x)
x<-1:10
length(x)

task2 <- function(vector){
  z<-vector[2] + vector[length(vector)] # Wrong
  return(z)
}

mark_my_assignment("task2")

task2 <- function(vector){
  z<-vector[1] + vector[length(vector)] # Correct
  return(z)
}

mark_my_assignment("task2")

# rätta alla uppgifter samtidigt:

mark_my_assignment()
mark_my_file(mark_file = "/home/joswi05/Desktop/test.R")


#-----------------------------------------------------------------------------------------------------------------------
# Logik 
#-----------------------------------------------------------------------------------------------------------------------

minVektor <- c(12, 1, 2, 7)
minBool <- c(TRUE, FALSE, FALSE, TRUE)
minVektor[minBool]


3>4
4>3

x<-TRUE
y<-FALSE
!x
!!x

x&y
x|y



x <- 1:10
y <- x != 5
z <- x > 2
x[y & !z]
x[y & z]

index<-y & z
x[index]


#-----------------------------------------------------------------------------------------------------------------------
# markmyassignment: lab 1 ex
#-----------------------------------------------------------------------------------------------------------------------


#-----------------------------------------------------------------------------------------------------------------------
# Datorlabb 1 

# Uppgift 1: orth_scalar_prod

# mall: https://raw.githubusercontent.com/STIMALiU/KursRprgm2/master/Labs/Templates/lab_template.R

rm(list=ls()) # rensar den globala miljön

library(markmyassignment)

# ställer in vilken labb jag ska rätta:
lab_path <-"https://raw.githubusercontent.com/STIMALiU/KursRprgm2/master/Labs/Tests/d1.yml"

set_assignment(lab_path)

# namn och liu-ID
Namn <- "Josef Wilzén"
LiuId <- "joswi123"

# min funktion (ej korrekt):
orth_scalar_prod <- function(a,b){
  
  y<-a[1]^2 + b[2]^2
  
  return(y)
}


# rättar en uppgift
mark_my_assignment(tasks = "orth_scalar_prod")


# rättar alla uppgifter
mark_my_assignment()