Ferramentas do usuário

Ferramentas do site


05_curso_antigo:r2011:alunos:trabalho_final:marcia:start

Márcia

Mestranda pelo Dep. de Ecologia, IB-USP. Tema do projeto: “Diversidade e Estrutura Genética de Populações de Vellozia squamata Pohl sob o regime de fogo no Cerrado, do Brasil Central”. Orientada pela Profa Dra Vânia Regina Pivello.

TRABALHO FINAL

Proposta A

A estrutura genética populacional pode ser analisada a partir de dados moleculares obitdos com o uso de marcadores moleculares como os microssatélites. Para tal analise utilizam-se as seguintes estatísticas:

* Estatísticas F de Wrigth (1951)
* Estatísticas de Nei (1973)
* Análise de variância de freqüências alélicas de Cockerhan (1969)
* Estatística Rst de Slatkin (1995)

Tais estatísticas são usadas quando uma população não está em Equilíbrio de Hardy-Weinberg (HWE).

As estatísticas de Wrigth e de Nei são as mais informativas para estudos de populações naturais. Desse modo, tenho como idéia a contrução de uma função em que mostre comparativamente os resultados das duas estatísticas já que ambas partem do mesmo conjunto de dados.

Proposta B

Construção de uma função que mostre numa tabela os gastos mensais normais e o quanto sobra de dinheiro no final do mês. E uma simulação de quanto será o saldo no final do mês se houver gastos além do previsto. Para ambos, o saldo dos meses anteriores (se der para juntar) aparecerá na tabela do mês seguinte.

Comentário Leandro

A proposta do plano A parece bem interessante, mas envolve uma série de etapas para realizar os cálculos de cada um desses índices que complicaria a execução em apenas uma semana. Pode ser uma ótima ideia para executar após a disciplina.

Antes de iniciar a construção da função é necessário ter claro qual seria o formato de entrada dos dados e deixar isso bem específico para os futuros usuários. Outro fator essencial é saber exatamente como seria essa comparação entre as diferentes “estatísticas” calculadas e qual o objetivo dessas comparações.

Essa função parece mais viável para ser feita em uma semana. Apenas precisa pensar bem como será a entrada de dados para início dos cálculos. Ela já precisará levar em conta um possível saldo na conta no momento do primeiro cálculo.

Também precisará ter claro como serão inseridos esses gastos além do previsto. A função pode ter um parâmetro que estipule por quantos meses você quer simular esses gastos, o que refletiria um total de $ poupado ao final do tempo simulado.

FUNÇÃO: sfm()

Help da Função sfm()

sfm{IB-USP}

RDocumentation

						        	 **Disciplina BIE5782-2: Trabalho Final**

Description

Criação de matrizes que prevêem os saldos futuros mês a mês.

Contabiliza os gastos por item.

Usage

sfm(v1=0,v2=0,v3=0,v4=0,v5=0,v6=0,v7=0,meses=0)

Arguments

sfm: Nome da função - “Saldo no Final do Mês”

v1: Resíduo, isto é, crédito ou débito do mês anterior

v2: Salário do mês

v3: Gasto Mensal Normal - despesas fixas como água, luz, telefone,…

v4: Gasto Mensal Temporário - despesas temporárias, porém já previstas nos gastos do mês

v5: Gasto Extra - despesas não previstas, mas necessárias

v6: Gasto Sem Aviso - despesas não prevista, porém desnecessárias

v7: Poupança - valor do depósito meses

meses: Número de meses em que pretende prever os gastos futuros

Details

Todos os valores definidos nos argumentos são fixos.

Não se pode mudar os valores nas colunas subseqentes à primeira.

Os valores de cada argumento aparece numa tabela de matriz.

O argumento v8 é a somatórias dos gastos no mês, isto é, a soma dos vetores v3+v4+v5+v6+v7.

O argumento v9 é o saldo no final do mês, em que contabiliza a soma de v2 + v1 - v8. Tal soma segue exatamente esta seqüência de valores.

Author

Duarte, M. (2011) . Disciplina BIE5782-2: Uso da Linguagem R para Análise de Dados Ecologicos. IB-USP, Sâo Paulo - Brasil.

Reference

http://ecologia.ib.usp.br/bie5782/doku.php?id=bie5782:01_curso_atual:start

Examples

sfm(0,1000,500,100,85,0,0,3)

sfm(0,1000,500,100,85,0,0,6)

sfm(-100,1400,700,300,100,100,100,12)

Código da Função: sfm()

Título: Despesas Mensais

Proposta

Elabração de uma tabela simples e sem detalhes para visualização rápida de previsão valores gastos no meses futuros e o saldo final a cada mês.

Informações na tabela

- Resíduo (res=v1): o valor a partir do qual será debitado no mês vigente.

- Salário mensal (sal=v2).

- Gastos Mensais Normais (gmn=v3): gasto habituais, contas mensais, entre outros.

- Gastos Mensais Temporário (gmt=v4): compras à prazos e já planejadas.

- Gastos Extras (ge=v5): compra à vista ou à prazo, sem planejamento e necessários.

- Gastos Sem Aviso (gsa=v6): compra realizadas por impulso.

- Poupança (poupa=v7).

- Saldo no Final do Mês {smf()}: saldo no final do mês (positivo ou negativo) e que será incluído no próximo mês.

FUNÇÃO

Modelo 1: Somente a função

sfm=function(v1,v2,v3,v4,v5,v6,v7)

{

res=v1 ##### Resíduo, isto é, crédito ou débito do mês anterior

sal=v2 ##### Salário do mês

gmn=v3 ##### Gasto Mensal.Normal

gmt=v4 ##### Gasto Mensal.Temporário

ge=v5 ##### Gasto Extra

gsa=v6 ##### Gasto Sem Aviso

poupa=v7 ##### Poupança (valor do depósito no mês)

gt=gmn+gmt+ge+gsa+poupa # Somatórias dos Gastos + Poupança = Gastos Totais

sfm=sal+res-gt ##### Valor Final = Resíduo + Gasto Total

dmes=sal-sfm: ##### Valor (crédito ou débito) no final do mês, isto é, Salário do mês - (Resíduo + Gastos Totais)

return(sfm)

}

sfm

  • Exemplos para rodar a função:

sfm(-30,1000,500,200,300,400,100)

sfm(30,1000,500,200,300,400,100)

Modelo 2: Matriz da Função do modelo 1 modificado

sfm=function(v1=0,v2=0,v3=0,v4=0,v5=0,v6=0,v7=0,meses=0)

{

res=v1

sal=v2

gmn=v3

gmt=v4

ge=v5

gsa=v6

poupa=v7

gt=gmn+gmt+ge+gsa+poupa

sfm=sal+res-gt

dmes=matrix(data=NA,nrow=9,ncol=(meses+1),dimnames=list(c(“Resíduo”,“Salário”,“GM.Normal”,“GM.Tempo”,“G.Extra”,“GS.Aviso”,“Poupa”,“G.Final”,“Saldo”),

c(1:(meses+1))))

gt←gmn+gmt+ge+gsa+poupa

sfm←sal+res-gt

dmes[1,]←res

dmes[2,]←sal

dmes[3,]←gmn

dmes[4,]←gmt

dmes[5,]←ge

dmes[6,]←gsa

dmes[7,]←poupa

dmes[8,]←gt

dmes[9,]←sfm

for(r in 1:meses)

{

dmes[9,r]←dmes[1,r]+dmes[2,r]-dmes[8,r]

dmes[1,r+1]←dmes[1,r]+dmes[2,r]-dmes[8,r]

}

dmes.final←dmes[,1:meses]

return(dmes.final)

}

  • Exemplos para rodar a função:

sfm(0,1000,500,100,85,0,0,3)

sfm(0,1000,500,100,85,0,0,6)

sfm(-100,1400,700,300,100,100,100,12)


Arquivo

05_curso_antigo/r2011/alunos/trabalho_final/marcia/start.txt · Última modificação: 2020/08/12 06:04 (edição externa)