Uppgiftsinlämning 1

Kalle Palm (kalle.palm@gmail.com)

1.01

Ohms lag är ett grundläggande samband inom elektronik och fysik. Det skrivs som U=R*I. Detta innebär att spänningen är en funktion av resistansen och strömmen, närmare bestämt produkten av dem. Den gäller i enkla kretsar, men vid extremt starka strömmar kan man få relativistiska eller kvantmekaniska effekter eller mer vardagligt, så påverkas resistansen av temperaturen, som ökar med ökande ström. Vid temperaturberoende kretsar kommer alltså inte sambandet att gälla.

1.02

(a)

FRÅGA: Vad är fel?

seq(5;8)

SVAR: Det borde vara

seq(5, 8)

## [1] 5 6 7 8

(b)

FRÅGA: Vad är fel?

cos 1.5

SVAR: Det borde vara

cos(1.5)

## [1] 0.07074

©

FRÅGA: Vad är fel?

3 + 5 = x

SVAR: Det borde vara

x = 3 + 5

(d)

FRÅGA: Vad är fel?

sqrt[4*98]

SVAR: Det borde vara

sqrt(4 * 98)

## [1] 19.8

(e)

FRÅGA: Vad är fel?

10,000 + 4,000

SVAR: Det borde vara

10000 + 4000

## [1] 14000

(f)

FRÅGA: Vad är fel?

sqrt(c(4,16,25,36))=4

SVAR: Det borde vara

sqrt(c(4, 16, 25, 36)) == 4

## [1] FALSE  TRUE FALSE FALSE

(g)

FRÅGA: Vad är fel?

fruit = c(apple, berry, cherry)

SVAR: Det borde vara

fruit = c("apple", "berry", "cherry")

(h)

FRÅGA: Vad är fel?

x = 4(3+2)

SVAR: Det borde vara

x = 4 * (3 + 2)

(i)

FRÅGA: Vad är fel?

x/4 = 3+2 

SVAR: R löser inte ekvationer. Se fråga ovan.

1.04

seq(1, 10)

##  [1]  1  2  3  4  5  6  7  8  9 10

seq(5, 15)

##  [1]  5  6  7  8  9 10 11 12 13 14 15

seq(1, 10, by = 2)

## [1] 1 3 5 7 9

seq(0, 1, length.out = 10)

##  [1] 0.0000 0.1111 0.2222 0.3333 0.4444 0.5556 0.6667 0.7778 0.8889 1.0000

1.05

SVAR: d)

sum(seq(1, 100))

## [1] 5050

1.10

De två sista argumenten står i kontradiktion med varandra. Vi kan inte gå från ett till fem i steg om ½ och samtidigt göra det i två steg.

2.02

1.

nrow(CO2[CO2$Plant == "Mc1", ])

## [1] 7

2.

nrow(CO2[CO2$Plant == "Mc1" | CO2$Plant == "Mn1", ])

## [1] 14

3.

nrow(CO2[CO2$Type == "Quebec" & CO2$Treatment == "nonchilled", ])

## [1] 21

4.

nrow(CO2[CO2$conc >= 300, ])

## [1] 48

5.

nrow(CO2[CO2$conc >= 300 & CO2$conc <= 450, ])

## [1] 12

6.

nrow(CO2[CO2$conc >= 300 & CO2$conc <= 450 & CO2$Treatment == "nonchilled", 
    ])

## [1] 6

7.

nrow(CO2[CO2$uptake <= (1/10) * CO2$conc, ])

## [1] 51

2.04

(a)

C

(b)

(1)

Ej variabel

(2)

Kvantitativt

(3)

Kvantitativt

(4)

Ej variabel

(5)

Kategorisk

(6)

Kvantitativt

©

B

2.09

(a)

B

(b)

C

©

A

(d)

B

2.14

(a)

Kvantitativt

(b)

Kategori

©

Kategori

(d)

Kvantitativt

(e)

Ordinal

(f)

Ordinal